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INDUSTRIA OGGI 


ELETTRONICA OGGI 


Il mensile dell’alta 
tecnologia nell'industria 
moderna: soluzioni 
applicative e nuovi 
orientamenti in R&S, 
produzione e servizi. 
Abb. annuo 
10 numeri 
lire 41.000 
anziché lire JÌ&OOQ 


VIDEOTEL MAGAZINE 

La rivista dei nuovi servizi 
interattivi telematici: 
applicazioni, fornitori 
di informazione, utilizzo. 

Abb. annuo 
6 numeri 
lire 20.000 
anziché lire^?4=80Q 






L'informatica 
professionale: 
dall’elaborazione dati 
all'office automation. 
Servizi speciali 
e anticipazioni 
esclusive dalla Silicon 
Valley. 

Abb. annuo 
11 numeri 
lire 40.000 
anziché lire $£500. 


La più autorevole rivista 
italiana di componenti, 
strumentazione ed 
elettronica professionale. 

Abb. annuo 
20 numeri 
lire 64.000 
anziché lire §&600 
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L’informatica nella 
didattica: problemi, 
esperienze e prospettive 
del computer nel mondo 
della scuola. 

Abb. annuo 
9 numeri 
lire 21.000 
anziché lire ÌZiOQf 


VIDEOGIOCHI NEWS 





S.p.A. 


Il giornale di videogames 
e home computer, con 
recensioni di giochi 
sempre nuovi. 

Abb. annuo 
11 numeri 
lire 18.000 
anziché Iire^2r0tìp 
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□ DINERS CLUB 
























































AUTOMAZIONE OGGI 



Robotica, controllo 
numerico, CAD/CAM, 
sistemi flessibili... 
problemi e soluzioni per 
la nuova automazione 
industriale. 

Abb. annuo 
11 numeri 
lire 46.000 
anziché lire 


ELETTRONICA. STRUMENTAZIONE 

& AUTOMAZIONE PRODUCT NEWS 


TRASMISSIONE DATI 


ELETTRONICA 
STRUMENTAZIONE 
& AUTOMAZIONE 
PRODUCT NEWS 
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Il giornale di tutti i nuovi 
prodotti dell'elettronica, 
della strumentazione 
dell’automazione 
industriale e 

dell’elettronica medicale. 

Abb. annuo 
11 numeri 
lire 26.000 
anziché lire^33^^> 


PC & COMPUTER PRODUCT NEWS PC WORLD MAGAZINE 


PC & COMPUTER 
PRODUCT NEWS 



Il giornale di tutti i nuovi 
prodotti hardware e 
software dell’informatica: 
dai medi sistemi 
al Personal Computer. 
Abb. annuo 
11 numeri 
lire 27.000 
anziché lire 



La prima e unica rivista 
italiana per gli utenti di 
personal computer IBM 
Olivetti e compatibili. 

Abb. annuo 
11 numeri 

lire 44.000 _ . 

anziché lire jìSfeOQ 


COMPUTER GRAFICA 


& APPLICAZIONI 


N 



NOI C128 E C64 



ELETTRONICA HOBBY 


NAUTICAL OUARTERLY 



La rivista per l'hobbista 
elettronico, il 
radioamatore, il 
riparatore radio-TV, 
Thardware dei personal 
computer. 

Abb. annuo 
12 numeri 
lire 32.000 
anziché lire 



Il trimestrale di cultura 
nautica più prezioso e 
raffinato del mondo. 
Emozioni da leggere, 
guardare e conservare. 
Abb. annuo 
4 numeri 
lire 70.000 
anziché lirej£0#Q& 


E TELECOMUNICAZIONI 



Il mensile dei nuovi 
sistemi 

di telecomunicazioni, data 
Communications 
e telematica. 

Abb. annuo 
11 numeri 
lire 36.000 
anziché lire_J&<W33 


BIT 



La prima rivista europea, 
la più famosa 
e autorevole in Italia, 
di personal, home, 
business computer, 
software e accessori. 
Abb. annuo 
11 numeri 
lire 43.000 
anziché lire ÈpREXJll. 


SUPERCOMMODORE 64 & 128 


La rivista della grafica e 
deH'immagine con il 
computer: applicazioni 
pratiche per l'industria, le 
professioni e i servizi. Dal 
CAD/CAM alla pubblicità. 
Abb. annuo 
4 numeri 
lire 19.000 
anziché lire^fcOQjf 



La prima rivista con 
cassette programmi, 
dedicate agli utenti home 
computer Commodore 
64 e 128. 

Abb. annuo 
11 numeri 
lire 66.000 
anziché lire 


OLIVETTI PRODEST USER 


La rivista con disco o 
cassetta dei package 
professionali, modelli 
applicativi e giochi 
intelligenti. 

Abb. annuo 11 numeri 
(versione con cassetta) 
lire 70.000 
anziché Iire_$9*)tì0 
(versione con disco) 
lire 115.000L 
anziché lireTÌPfcOOp 



L'unica rivista per gli 
utenti dei sistemi Olivetti 
Prodest PC128 e PC128S. 
Una guida all'uso 
indipendente e completa. 
Abb. annuo 
6 numeri 
lire 15.000 
anziché lireTjfc9Gl£ 


AUTOMOBILE OUARTERLY 



Il trimestrale più 
prestigioso e raffinato del 
mondo, dedicato all’auto, 
alla sua storia, ai suoi 
miti. 

Per chi intende l’auto 
come un fatto di cultura 
e di passione. 

Abb. annuo 
4 numeri 
lire 69.500 
anziché lire SSfcOQO 


STRUMENTI MUSICALI 



Il mensile per i 
professionisti della 
musica: audiotest, 
rassegne, computer 
music, servizi, interviste. 
Abb. annuo 
11 numeri 
lire 35.000 
anziché lire^3?8G§ 
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S ulla scia del suc¬ 
cesso avuto dal 
gioco nella sua prima 
apparizione ecco a voi, 
come in ogni serie tele¬ 
visiva di successo, la se¬ 
conda puntata: Jetset 
Willy II. 

Il simpatico Willy alle 
prese con nuove scon¬ 
volgenti avventure. 

IL PROGRAMMA 

Per tutti coloro che ci 
hanno seguito, e quindi 
già conoscono la precedente ver¬ 
sione di Jetset Willy prodotta an- 
ch'essa dalla feconda software 
house inglese, Software Projets, 
diremo cne questo nuovo lavoro 
è la necessaria evoluzione di un 
progetto nato parecchio tempo 
addietro. Jetset Willy infatti, era 
nato in origine per il computer 
Spectrum dal quale, malgrado la 
grandissima abilità di chi ha con¬ 
cepito il programma, ereditava 
alcune ovvie limitazioni dovute al¬ 
la memoria utilizzabile e alle ca¬ 
pacità sonore. 

Come molte volte accade, la limi¬ 
tatezza e le difficoltà incontrate, 
stimolarono gli sforzi dei progetti¬ 
sti nel semplificare e ridurre le rou- 
tines di gestione e i dati necessari 
al programma ai minimi termini, 
rendendo disponibile già alcuni 
anni fa un gioco dallo scenario 
immenso e quindi interminabile. 
Interminabile per le infinite situa¬ 
zioni da affrontare ed il diverti¬ 
mento, non certo per il gioco in sé 
che ha un inizio e (per pochi eletti) 
anche una vittoriosa risoluzione e 
fine. 

Grazie alle sofisticate tecniche 
adottate è stato possibile intro¬ 
durre nel dinamico mondo dei vi- 


deogames un tipo unico e nuovo 
di avventura, in cui l'azione si 
svolge sempre su differenti quadri 
popolati da esseri in preciso e sin¬ 
cronizzato movimento. 

Se la prima versione di Jetset 
Willy per MSX era un adattamen¬ 
to del famoso game per Spec¬ 
trum, la nuova versione che vi 
presentiamo ora, utilizza final¬ 
mente appieno le capacità degli 
MSX beneficiando ugualmente 
delle tecniche e degli sforzi com¬ 
piuti per compattare il più possibi¬ 
le il programma. 

Utilizzando interamente i 64K di 
memoria disponibili su MSX per il 
programma, lo scenario di gioco, 
nel particolare la casa di Willy, è 
ora davvero infinita e le stanze si 
contano ormai su tre cifre. 


IL GIOCO 

Per molti aspetti il gioco è simile 
alla precedente versione in quan¬ 
to a difficoltà e compiti. 

Willy ha una casa più grande 
quindi più oggetti da collezionare, 
più automi impazziti ostili. 
Accanto ad alcune stanze facili 
da riconoscere come presenti nel¬ 
la prima versione, ne troverete 


delle nuove con nuove 
situazioni, oggetti diffe¬ 
renti ed ostacoli perico¬ 
losi. 

Troverete ancora la se¬ 
vera Maria dal piedino 
nervoso che vi negherà 
il letto fintantoché non 
avrete ripulito per bene 
la casa da tuttociò che 
visibilmente lampeggia 
e che dovrete racco¬ 
gliere. Non ci stanche¬ 
remo mai di ripetere che 
ogni schermo ha una 
propria soluzione, ossia una tatti¬ 
ca vincente che consente di rac¬ 
cogliere gli oggetti presenti senza 
ovviamente lasciarci anche la 
pelle. 

LA TECNICA 

Il sistema migliore per un primo 
approccio con il gioco è imparare 
a muoversi bene nelle varie stan¬ 
ze, tracciando quando possibile 
la mappa e prendendo qualche 
appunto, poi in seguito pensare 
alla raccolta degli oggetti. 
Studiando il difficile compito stan¬ 
za per stanza, ponendosi pochi 
problemi per volta, non sarà diffi¬ 
cile arrivare dopo qualche tempo 
alla soluzione finale. Certo il com¬ 
pito è tutt'altro che facile, dobbia¬ 
mo ammetterlo, però il diverti¬ 
mento anche in questo caso vi fa¬ 
rà superare piacevolmente i più 
alti scogli. 

Per riposarvi o riflettere nei mo¬ 
menti più difficili non dimenticate 
la funzione del tasto "w" che vi 
consente di fermare momenta¬ 
neamente il gioco; non potrete 
certo accomodarvi nel soffice let¬ 
to preparato dalla signora Maria, 
no, però potrete sempre utilizzare 
il vostro... 
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UT. MIN. RICH. D.M. n° 4/298449 del 10-12-86 


cento e uno premi 




In palio, fra tutti gli abbonati, 
una scattante, elegante, 

Alfa 33 4x4 giardinetta 
(1500 cc.) 
nella 
versione 
più 

prestigiosa 
e super 
accessoriata, 

perfettamente a suo agio in ogni 
situazione, potente e nello stesso tempo 
parca nei consumi, protagonista instancabile di mille avventure. 


‘Umeof 

yreenunch 

Dal 1884 segna il tempo dell'Universo. 


1 premio 


100 premi 


Il fantastico orologio Time of Greenwich 
modello 120321. Uno strumento di altissima 
perfezione ed esclusività, in edizione limitata 
e personalizzata, realizzata appositamente 
per i fortunati vincitori abbonati Jackson 
dalla prestigiosa Time of Greenwich. 
Distribuito in Italia da LED ITALY 


Re g olamento del concorso 


1 - Il Gruppo Editoriale Jackson S.p.A. 
promuove un concorso a premi in occa¬ 
sione della Campagna Abbonamenti 
86/87. 

2 - Per partecipare è sufficiente sotto¬ 
scrivere, entro il 31.3.1987, un abbona¬ 
mento a una delle 20 riviste Jackson. 

3 - Sono previsti 1+100 premi da sor¬ 
teggiare fra tutti gli abbonati. 

4 -1° premio 

Un’automobile Alfa 33 4x4 giardinetta 
(1500 cc.). Gli altri 100 premi consistono 
in altrettanti orologi Time of Greenwich. 


5 - Gli abbonati a più di una rivista 
avranno diritto, per l’estrazione, all’inse¬ 
rimento del proprio nominativo tante 
volte quante sono le testate sottoscritte. 

6 - L’estrazione dei 1+100 premi in pa¬ 
lio avverrà presso la Sede della Jackson 
entro il 30.5.1987. 

7 - L'elenco dei vincitori, ad estrazione 
avvenuta, sarà pubblicato su almeno 10 
delle riviste Jackson. 

La vincita inoltre, sarà comunicata con 
lettera raccomandata a ciascuno dei sor¬ 
teggiati. 


8 - I premi verranno messi a disposizio¬ 
ne degli aventi diritto entro 30 giorni dal¬ 
la data dell'estrazione. 

9 - Le spese di immatricolazione della 
Alfa 33 4x4 giardinetta saranno a carico 
del vincitore. 

IO - I dipendenti, i familiari, i collabora¬ 
tori del Gruppo Editoriale Jackson sono 
esclusi dal concorso. 


GftUPPO EDfrOfil ALE 

JACKSON 

DIVISIONE PERIODICI 

la Tua Rivista. 
















IL PUNTEGGIO 

Dato il particolare tipo di gioco, 
non esiste un conteggio particola¬ 
re destinato ai "punti", lo scopo è 
preciso: coricarsi a letto dopo 
aver raccolto tutti gli oggetti per le 
varie stanze. 

In attesa di riuscire a completare 
la missione, potete valutare i pro¬ 
gressi compiuti, in base al tempo 
(di sopravvivenza), oggetti rac¬ 
colti e stanze visitate. Per ciò che 
riguarda il tempo non vi sono pro¬ 
blemi, avete a disposizione solo 
9999 ore... 

/ TASTI DI CONTROLLO 

Willy per tradizione può compiere 
solo tre principali movimenti, il 
salto e lo spostamento a destra o 
a sinistra e ciò rende semplicissi¬ 
mo il controllo con tre soli tasti. 
Per default è possibile usare i tasti 
cursore, il joystick, oppure i tasti 


■^SUPERGAME^ 

della tastiera con la possibilità di 
ridefinizione. Ciò è stato previsto 
perché su molte versioni MSX i ta¬ 
sti cursore risultano troppo grossi 
o scomodi per giocare, e quindi 
inadatti ad un uso preciso e velo¬ 
ce. Premendo qualsiasi tasto ec¬ 
cetto la barra-spazio, dallo scher¬ 
mo di presentazione, un semplice 
menù vi permetterà di utilizzare i 
tasti preferiti per le varie funzioni. 
Oltre ai tasti di movimento esisto¬ 
no quattro tasti di controllo: 

Q: per diminuire il volume del sot¬ 
tofondo musicale 

L: per aumentare il volume del 
sottofondo musicale 


W: per fermare momentanea¬ 
mente il gioco 

STOP: per uscire dal gioco 


IL CARICAMENTO 

Il gioco Jetset Willy II utilizza ap¬ 
pieno le capacità di memoria 
MSX pertanto può 'girare' solo su 
quei computer che dispongono di „ 
almeno 64K di memoria utente. 

Per il caricamento di Jetset Willy II 
riavvolgere completamente il na¬ 
stro e battere sul computer: 

RUN"cas:" 

Un programma iniziale riconosce¬ 
rà se il vostro computer dispone 
di 64K di memoria e in caso con¬ 
trario eviterà le fasi successive 
dandovi un messaggio appro¬ 
priato. 

Qualora il computer disponga 
della memoria necessaria, com¬ 
parirà una schermata di presen¬ 
tazione e la scritta LOADING (ca¬ 
ricamento). Una particolare routi¬ 
ne di LOAD mostrerà su schermo 
l'evolversi del caricamento stesso. 

Al termine il programma partirà 
autonomamente; qualora invece 
dovesse apparire un messaggio 
di "LOAD ERROR" ripetere il cari¬ 
camento dall'inizio avendo cura 
di tenere il volume del registratore 
a 3/4 della corsa complessiva e 
gli eventuali regolatori di tono a 
metà corsa. 
































Le Grandi 


Guide 

diBIT 


Da gennaio e fino a dicembre ’87 
ogni mese Bit vi da’ un grande 
appuntamento in edicola con le Grandi 
Guide di Bit: veri manuali di riferimento 
di eccezionale utilità, dedicati al personal 
computer, alla programmazione, ai sistemi 
operativi, ai linguaggi. 

A fine anno possederete una biblioteca 
ricca, aggiornata e completa: per lavorare 
meglio e conoscere più a fondo il vostro 
personal computer. 

Ogni mese 
Bit ti aspetta in edicola 
con la sua Guida. 
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LA TABELLA DEI COLORI 

Anche in Jetset Willy II è stata uti¬ 
lizzata una protezione speciale 
anti-pirata, consistente in uno 
speciale codice di accesso al gio¬ 
co, ricavabile da una particolare 
tabella a colori. 

Solo chi è in possesso della tabel¬ 
la pubblicata in queste pagine 
potrà giocare una volta inserita la 
giusta password; conservate 
quindi con cura questo fascicolo 
assieme alla cassetta. 

Il programma, al termine del cari¬ 
camento dal nastro, vi chiederà 
(dopo la pressione della bar¬ 
ra-spazio) di immettere un codice 
di quattro colori da trovare sulla 
tabella ad un particolare numero 
di pagina ed alle coordinate spe¬ 
cificate. 

Sulla tabella converrà cercare il 
numero di pagina richiesto (può 
variare tra 1 e 6) e poi la casella 
corrispondente alle coordinate 
date. 

In questa casella c'è il codice co¬ 
stituito da auattro colori che vi 
permetterà ai accedere al gioco. 
Per inserire il codice-colori sul 
computer, avete a disposizione 
quattro caselle, in cui dovrete ri¬ 
produrre la giusta sequenza di 
colori premendo i tasti da 1 a 4. 
Per aiutarvi, lo schermo visualizza 
in basso a sinistra la corrispon¬ 
denza tra i tasti numerici e i colori. 
Una volta battuto il giusto codice 
non vi resta che confermare pre- 


# SUPERGAME & 

mendo RETURN. Se il codice inse¬ 
rito è corretto apparirà la scher¬ 
mata iniziale e la musica, altri¬ 
menti il codice vi verrà richiesto 
una seconda volta. 

Qualora sbagliaste per due volte 
consecutive, il programma auto¬ 
maticamente vi lascerà in modo 
poco garbato ma efficace... 


Il Gruppo 
Editoriale Jackson, 
proprietario esclusivo dei diritti per 
l'Italia di questo gioco, invita i lettori 
che ne fossero a conoscenza, a 
segnalare l'esistenza di eventuali altre 
pubblicazioni contenenti questo stesso 
gioco, alla redazione della nostra 
rivista. 

Tali segnalazioni saranno 
convenientemente compensate. 




GUIDA ALL'INPUT MSX 


Per motivi di stampa e chiarezza, i caratteri grafi¬ 
ci o comunque tutti i simboli il cui codice 
(ASC("car")) è superiore a 127, compaiono nei 
listati codificati in modo particolare. 

Ogni carattere o serie di caratteri uguali e conti¬ 
gui, è sostituito da graffe contenenti: 

• Il numero dei caratteri (omesso se= 1) 

• La lettera maiuscola "C" oppure "A" a se¬ 
conda se si tratta del set normale (caratteri otte¬ 
nibili con CHR$(n) o del set alternativo (caratteri 
ottenuti con CHR$(l)+CHR$(nj). 

• Codice "n" del carattere o dei caratteri da 
battere. 

Qualsiasi computer MSX voi abbiate, potete rife¬ 
rirvi al manuale per trovare la corrispondenza tra 


il codice-carattere dato e il simbolo a cui corri¬ 
sponde. 

ESEMPIO: 

{3090} = battere 3 volte il carattere PI-GRECO 
{A67} = battere il carattere cuore. 

NORME PER IL CARICAMENTO DEI 
PROGRAMMI SU CASSETTA 

Le istruzioni di caricamento del supergame ven¬ 
gono riportate nel contesto della relativa descri¬ 
zione. Oltre al supergame sono registrati su na¬ 
stro tutti gli altri programmi presentati su questo 
numero i quali vanno caricati, salvo diversa indi¬ 
cazione, con: CLOAD <RETURN>. 

















ooooooooooooooo 

LISTATO 

ooooooooooooooo 



AGGUATO SUL FONDO 

Occupazione di memoria: 16120 Byte Configurazione richiesta: 32 KByte 
Il programma è registrato su cassetta con il nome: AGGUATO 


V i trovate nel fondo del mare e dovrete affron¬ 
tare due prove diverse. Nella prima dovete 
aiutare un piccolo pesce a mangiare dei vermetti 
evitando un grosso e vorace pescecane. Nel se¬ 
condo siete un subacqueo e dovete colpire lo stes¬ 
so nemico di prima. Nel primo schermo ogni ver- 
metto mangiato vale un punto, per ogni serie di 
vermi consumato il punteggio viene moltiplicato per 


due, ogni arpione tirato (nel secondo schermo) vi fa 
perdere 50 punti. Oqni pescecane colpito vi varrà 
100 punti. 

Alla fine del gioco avrete anche una valutazione 
sulle vostre capacità di pescatore. 

Il programma è previsto per funzionare con la ta¬ 
stiera per usare il joistick scrivete "1 " alla linea 160 
come indicato in listato. Buon divertimento. 


10 REM » *#**#******** ******#»** 


20 REM * » 

30 REM * * 

140 REM * AGGUATO SUL FONDO * 
50 REM * * 

60 REM * * 

70 REM * di Maurizio Galluzzo * 

80 REM * * 


90 REM »**«*»*****»»»*»«»****»**». 

100 REM 
110 REM 

120 COLOR 15,A, 1 2 
130 SCREEN 2,2 
1 A 0 KEY OFF 
150 WIDTH 32 

1 60 00 = 0 : REM SCRIVERE 0 PER TASTIERA 2 

5 REM SCRIVERE 1 PER JOYSTICK 

170 GOSUB 3230 

180 OPEN "grp:" AS #1 

190 LINE (0,128)-(256,192),1,BF 

200 LINE ( 1 0,1 33 )-( 24<5,1 85 ) , 1 5 , BF 

210 PSET (60,1 HO),15 : COLOR ItPRINT #1,"AGG 

UATO SUL FONDO" 

220 PSET (60,1 39),1 5 : COLOR 1:PRINT #1,”AGG 
UATO SUL FONDO" 

230 PSET ( 148,1 65 ) , 1 5 : COLOR A : PRINT #1,"di 
Maurizio Galluzzo" 

2A0 COLOR 15 

250 PSET (0,20 ) , 6 :DRAW "mO,20mA0,20mA0,3Om 
50,30m50,35mAO,AOra52,A3m50,50m60,53m60,60m 
A0,60m3O,53m20,52m10,60mO,60m0,20":PAINT ( 
20,22 ) ,6 

260 PSET(0,70),6 :DRAW "mO , 70m'0,70m20,72m3 

0,80mAO,90mAO,100m50,110m60,110m62,120m70, 

127ra0,127m0,70": PAINT (10,71),6 

270 PSET(256,20),6 :DRAW "m230,20m220,30m21 

0,30m200,35m190,A5m180,50m173.58m170,62m16 

8,70m171,80ml80,90m178,98m170,105m178,112m 

l80,120ml88,122m190,127m256,127m256,20":PA 

I NT(2A0,21 ) ,6 

280 PSET (77 , 1 27 ), 2 :DRAW "m80,110m90,80m95 
,70m102,6Om122,A2m1A0,35m150,32m125,58m101 
,8lm89,110m86,127m77,127":PAINT (135,A0),2 
290 PSET (170,30),3 :DRAW "mi 58,32m15A,A2m1 
50,60m1A3,70m132,78m125,85m119,100m110,11A 

m100,122m90,127m100,127m110,120m128,100m13 
7,85m150,75m156,66ml60,50m162,AOm170,30":P 
AI NT (1 60,35),3 
300 REST0RE 3310 


310 FOR IJ-0 T0 1A07 
320 READ A :VPOKE 1 A 336+I %,A :NEXT 
330 LINE (0,128)-(256,192),1,BF 
3 A 0 F = RND(-(TIME/10)MOD1 00) 

350 REST0RE 370 

360 FOR 1 = 0 T0 7 : READ A:VP0KE A 615 + I , A :VP0 

KE 1 2807 + I , 8.H81 : NEXT 

370 DATA 1 , 1 ,1 , 17, A2.7A ,7A,132 

380 VPOKE 67 21 ,0 :VPOKE 6720,0 :BEEP:GOSUB 9 

50 

390 Y = 80:X=100 :W = 8:Z = 56:M=1 :VI = A:0N INTERV 
AL = 300 GOSUB 920:0N SPRITE GOSUB 1160 
A00 LINE ( 1 6,0 )-( 1 20,8 ) , 1 , BF : DRAW "bm2.A,0" 

:PRINT #1 ,"PUNTI : 0": LINE ( 128,0 )-(2A0,8),1 
,BF:DRAW "bm136,0":PRI NT #1 ,”VITE :":PUT SP 
RITE 28,(176,-5),1 1 , 1 A :PUT SPRITE 29,(200, 
-5 ) , 1 1 , 1 A : PUT SPRITE 30 , (22 A ,-»5 ) , 1 1 , 1 A 
AIO PUT SPRITE 0,(W,Z),15,2 
A20 PUT SPRITE 8,(X,Y),11 , 1 0 
A30 REM 

A A 0 REM «il»*»»**»»»»*»*»»»»»»*»»» 

A50 REM * * 

A60 REM * CICLO PRINCIPALE * 

A 70 REM * * 

A80 REM ***»*»«****»**»»»*»***»** 

A 9 0 REM 

500 A-STICK(00) 

510 IF A = 0 THEN 650 

520 ON A GOTO 530,5 A0,550,560,570,580,590, 
600 

530 Y = Y-8:PUT SPRITE 8,(X,Y) ,1 1 ,8 : GOTO 610 
5 A 0 Y = Y-8:X = X + 8:PUT SPRITE 8,(X,Y),11 ,9 :GO 
TO 610 

550 X-X + 8:PUT SPRITE 8 , (X,Y),11 ,10 : GOTO 61 
0 

560 Y = Y + 8:X = X + 8:PUT SPRITE 8 , (X,Y),11 ,1 1 :G 
0T0 610 

570 Y = Y + 8 :PUT SPRITE 8,(X,Y),11 
0 

580 


,12: GOTO 61 


Y = Y + 8:X = X^8:PUT SPRITE 8,(X,Y) ,1 1 ,13 :G 


0T0 610 


590 X = X-*8 : PUT SPRITE 8 , ( X , Y ) , 1 1 , 1 A : GOTO 61 
0 

600 Y-Y-8: X-X-.8 : PUT SPRITE 8 , ( X , Y ) , 1 1 , 1 5 
610 IF X>2A0 THEN X-2A0 
620 IF X <16 THEN X-16 
630 IF Y <16 THEN Y = 16 
6A0 IF Y>176 THEN Y-176 

650 IF X>W AND Y >Z THEN W-W + M:Z-Z + M:PUT SP 


IO 
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RITE 

0, (W,Z) p 15,3 : GOTO 730 


660 

IF X>W AND Y-Z THEN W-W+M:PUT SPRITE 

0 

. (W,Z) ,15,2 : GOTO 840 


670 

IF X>W AND Y< Z THEN W-W+M:Z-Z-M:PUT 

SP 

RITE 

0, (W,Z),15,1 : GOTO 750 


680 

IF Y< Z AND X-W THEN Z-Z-M:PUT SPRITE 

’ 0 

,(W,Z),15,0:G0T0 840 


690 

IF X<W AND Y< Z THEN Z-Z-M:W-W-M:PUT 

SP 

RITE 

0, (W,Z),15,7 : GOTO 790 


700 

IF X<W AND Y-Z THEN W-W-M:PUT SPRITE 

0 

, (w,Z),15,6 : GOTO 840 


7 1 0 

IF X<W AND Y > Z THEN W-W-M:Z-Z + M:PUT 

SP 

RITE 

0,(W,Z),15,5 : GOTO 820 


720 

IF Y > Z AND X-W THEN Z-Z+M:PUT SPRITE 

0 

,(W ,Z ) , 15,4 


730 

IF W>X THEN W-X 


740 

IF Z > Y THEN Z-Y 


750 

GOTO 840 


760 

IF W>X THEN W-X 


770 

IF Z< Y THEN Z-Y 


780 

GOTO 840 


790 

IF W<X THEN W-X 


800 

IF Z< Y THEN Z-Y 


8 1 0 

GOTO 840 


820 

IF W<X THEN W-X 


830 

IF Z>Y THEN Z-Y 


840 

INTER VAL ON 


850 

T-6176+Y*4+X/8 


860 

IF VPEEK(T)-65 THEN U-U +1 :SC-SC + 1 :GOSU 

B 3020 


870 

IF Y<120 THEN 890 


880 

VPOKE T,0 


890 

IF U>23 THEN SC-SC*2:PLAY "v15164":FOR 

H-96 TO 1 STEP -*5 : PLAY "n-hNEXT:GOSUB 

1020 

900 

SPRITE ON 


910 

GOTO 500 


920 

M-M+ 1 


930 

IF M > 7 THEN M-7 


940 

RETURN 


950 

REM 


960 

REM ************************* 


970 

REM * * 


980 

REM * VERSO * 


990 

REM * * 


1000 

REM a************************ 


1010 

REM 


1020 

M-0:U-0 


1 030 

C 

FOR J-6659 TO 6851 STEP 64.-FOR 1-0 

TO 

D 

1 040 

Q-INT(RND(1 )*26 ) 


1050 

IF VPEEK(J + Q ) -65 THEN 1040 


1060 

VPOKE J + Q,65 


1 070 

NEXT:NEXT:IF SCOO THEN GOSUB 3020 


1080 

RETURN 


1 090 

REM 


1 1 00 

REM ************************* 


Ilio 

REM * * 


1 1 20 

REM * COLLISIONE SPRITE * 


1 1 30 

REM * * 


1 1 40 

REM ************************* 


1 1 50 

REM 


1 1 60 

SPRITE OF F: IF TIMEC100 THEN SPRITE 

ON 

: RETURN 


1 1 70 

W-8:Z-56:PUT SPRITE 0,(W,Z),15,2 :PUT 

SPRITE W,(248,W),0,2:X-248:Y-W*2:VI«VI-tl 

: M 

-0 :PLAY "I64v15n90v15n85v13n80v12n75v11n65 
Vl0n60v9n55v8n50v7n45v6n40v5n35v4n30v3n25v 

2n20v1ni 5":TIME-M 


1 1 80 
, 1 4 

1 1 90 
, 1 4 

1 200 
, 1 4 
1210 

IF VI- 3 THEN PUT SPRITE 30 ,( 224 ,-5) 

, 1 

IF VI-2 THEN PUT SPRITE 29,(200,-5) 

, 1 

IF VI-1 THEN PUT SPRITE 28,(176,-5) 

, 1 

IF VI-0 THEN 1300 


1 220 

RETURN 


1 230 

REM 


1 240 

REM ************************* 


1 250 

REM * * 



1260 REM * 2. CICLO PRINCIPALE * 

1270 REM * * 

1280 REM a*#*#*#*##*******##****#* 

1290 REM 

1300 IF SC-0 THEN SC-1 

1310 Y-95:X-248:AA«4:G-1 : D»1 :R-1 : S - 1 : VI - 9 : 
SPRITE OFF :ON STRIG G0SUB 2480,2980 
1 320 FOR 1-4622 TO 4615 STEP ”1:VP0KE 1,0: 
F0R Q-1 TO 600 :NEXT:NEXT:PUT SPRITE 30,(22 
4 ,-5),15,6 :PUT SPRITE 29 , ( 200 , «5 ) , 1 5 , 6 : PUT 
SPRITE 28 , ( 1 76 ,-5 ), 1 5,6 
1330 A-STICK(00):0N A GOSUB 1510,1520,1530 
,1540,1550,1560,1570,1580 
13*10 B-B + 1 8 : IF B>80 THEN B-0 
1350 IF A-0 THEN ON AA GOSUB 1660,1790,192 
0,2050 

1360 IF S-1 THEN ON G GOSUB 2180,2200,2220 
, 2240 

1370 IF R-1 THEN ON D GOSUB 2330,2350,2370 
, 2390 

1380 IF X>230 THEN X-230 

1390 IF X<16 THEN X-16 

1400 IF Y< 1 8 THEN Y-1 8 

1410 IF Y >160 THEN Y-160 

1420 ON FA GOSUB 2570,2660,2750,2840 

1430 STRIG(00) ON 

1 440 IF F<W + 8 AND F>W-8 AND 0<Z + 8 AND 0>Z-- 
8 THEN GOSUB 2930 

1450 IF VI-3 THEN PUT SPRITE 30,(224,*5),1 
,6 

1460 IF VI-2 THEN PUT SPRITE 29,(200,"5),1 
,6 

1 470 IF VI-1 THEN PUT SPRITE 28 , ( 1 7 6 ,-«5 ) , 1 


,6 

1480 IF VI-0 THEN 3210 
1490 IF SC<1 THEN 3110 
1500 GOTO 1330 
1510 Y-Y--2 : GOTO 1660 
1520 Y-Y-2:X«X+1:GOTO 1790 
1 530 X-X + 2 : GOTO 1790 
1540 Y-Y+2:X-X+1:GOTO 1790 
1 550 Y-Y + 2 : GOTO 1920 
1 560 Y-Y + 2:X-X-1 : GOTO 2050 
1 570 X«X”2: GOTO 2050 
1 580 Y-Y-2:X-X-'1 : GOTO 2050 
1590 REM 

1 600 REM **»************* 

1610 REM * * 

1620 REM * ALTO * 

1630 REM * * 

1640 REM #a*********************** 

1650 REM 
1660 AA-1:K«1 

1 670 IF B<20 THEN PUT SPRITE 8,(X,Y),8,16 : 
PUT SPRITE 9,(X,Y),5,17 :PUT SPRITE 10,(X,Y 
•*1 5 ) , 1 5,40 : RETURN 

1 680 IF B< 40 THEN PUT SPRITE 8,(X,Y) , 8,18 : 
PUT SPRITE 9,(X,Y),5,19 :PUT SPRITE 10,(X,Y 
"15 ) , 15,40 : RETURN 

1 690 IF B< 60 THEN PUT SPRITE 8,(X,Y) ,8 , 20 : 
PUT SPRITE 9,(X,Y) ,5,21 :PUT SPRITE 10,(X,Y 
-15) , 15,40 : RETURN 

1 700 IF B< 80 THEN PUT SPRITE 8 , (X,Y) ,8,18 : 
PUT SPRITE 9,(X,Y),5,19 :PUT SPRITE 10,(X,Y 
”15) , 15,40:RETURN 
1710 RETURN 
1720 REM 

1730 REM *»»**»*»**«•«**»*»»»*»*** 

1740 REM * * 

1750 REM * DX/DX ALTO/DX BASSO * 

1760 REM * * 

1770 REM ***a**##***»****»*»**»»** 

1780 REM 
1790 K-2:AA-2 

1800 IF B<20 THEN PUT SPRITE 8 , (X,Y),8,22 : 
PUT SPRITE 9,(X,Y) ,5,23 :PUT SPRITE 10,(X+1 
5,Y),15,41 : RETURN 

1810 IF B< 40 THEN PUT SPRITE 8,(X,Y),8,24 : 
PUT SPRITE 9,(X,Y),5,25 :PUT SPRITE 10,(X+1 
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5 , Y ) , 15,41 : RETURN 

1820 IF B<60 THEN PUT SPRITE 8 , (X,Y),8,26 : 
PUT SPRITE 9 , (X, Y) ,5,27 : PUT SPRITE 10,(X-*-1 
5 , Y ) , 15,41 : RETURN 

1830 IF B< 80 THEN PUT SPRITE 8 , (X,Y) , 8,24 : 
PUT SPRITE 9,(X,Y) ,5,25 :PUT SPRITE 10,(X+1 
5,Y),15,41 : RETURN 
1840 RETURN 
1850 REM 

1860 REM **»»*******«»»»»»*»**»«»* 

1870 REM » * 

1880 REM * BASSO * 

1890 REM » * 

1900 REM »»*****»»***»*»«*»«**»*»* 

1910 REM 
1920 K-3:AA=3 

1 930 IF B<20 THEN PUT SPRITE 8,(X,Y),8,28 : 
PUT SPRITE 9,CX,Y),5,29:PUT SPRITE 10,(X,Y 
♦15) ,15,43:RETURN 

1 940 IF B< 40 THEN PUT SPRITE 8 , (X,Y) , 8,30 : 
PUT SPRITE 9,(X,Y),5,31 :PUT SPRITE 10,(X,Y 
+ 15),15,43 : RETURN 

1 950 IF B<60 THEN PUT SPRITE 8 , (X,Y) , 8 ,32 : 
PUT SPRITE 9,(X,Y) ,5,33 :PUT SPRITE 10,(X,Y 
+ 15),15,43 : RETURN 

1 960 IF B<80 THEN PUT SPRITE 8,(X,Y) , 8,30 : 
PUT SPRITE 9 , (X,Y) ,5,31 :PUT SPRITE 10,(X,Y 
♦ 15) , 15 , 4 3 :RETU RN 
1970 RETURN 
1980 REM 

1990 REM **»***«*«*»****»*»»**»**» 

2000 REM * * 

2010 REM * SX/SX BASSO/SX ALTO * 

2020 REM * » 

2030 REM *»*****»»»******»****»»»» 

2040 REM 
2050 K« 4 : AA = K 

2060 IF B<20 THEN PUT SPRITE 8,(X,Y),8,34 : 
PUT SPRITE 9 , (X , Y ) , 5 ,35 : PUT SPRITE 10,(X*-.1 
5 , Y) ,15,42:RETURN 

2070 IF B< 4 0 THEN PUT SPRITE 8,(X,Y),8,36 : 
PUT SPRITE 9 , (X, Y ) ,5 , 37 : PUT SPRITE 1 0 . ( X-» 1 
5 , Y) , 15,42 : RETURN 

2080 IF B<60 THEN PUT SPRITE 8,(X,Y),8,38 : 
PUT SPRITE 9 , (X, Y ) ,5,39 : PUT SPRITE 10, ( X-, 1 
5,Y),15,42:RETURN 

2090 IF B< 80 THEN PUT SPRITE 8,(X,Y) , 8,36 : 
PUT SPRITE 9, (X,Y) ,5,37:PUT SPRITE 1 0 , ( X-> 1 
5 , Y) , 15 , 42 : RETURN 
2100 RETURN 
2110 REM 

2120 REM *#*#**#******»#*#**#***## 

2130 REM » * 

2140 REM * VERTICALE PESCE * 

2150 REM * « 

2160 REM **»*»**«»»*»*****»»****»* 

2170 REM 

2180 IF Y < Z+ 30 THEN R-0:G-2 
2190 RETURN 

2200 Z«Z + 8 :PUT SPRITE 0,(W,Z),15,4 :IF Z>(R 
ND( 1 ) * 50 ) + 1 20 THEN R-1:G-3 
2210 RETURN 

2220 IF Y>Z-30 THEN G-4:R-0 
2230 RETURN 

2240 Z-Z->8:PUT SPRITE 0 , ( W , Z ) , 1 5,0 : IF Z < ( R 
ND(1 ) * 16) + 5 4 THEN R-1 :G-1 
2250 RETURN 
2260 REM 

2270 REM *«♦***»»****»»»»«»»»*»*»» 

2280 REM * * 

2290 REM » ORIZZONTALE PESCE * 

2300 REM * * 

2310 REM »***«»»»**»»«*»»»»*»•»»»» 

2320 REM 

2330 IF X<W^30 THEN D-2:S-0 
2340 RETURN 

2350 W-W+8:PUT SPRITE 0 , (W,Z),15,2 : IF W>(R 
ND(1 )* 60)♦170 THEN S-1:D-3 
2360 RETURN 


2370 IF X>W-30 THEN D-4:S-0 
2380 RETURN 

2390 W-W-8 :PUT SPRITE 0,(W,Z),15,6 : IF W< ( R 
ND(1 ) * 6 4 ) + 1 6 THEN D-1 :S-1 
2400 RETURN 
2410 REM 

2420 REM «ini»*»**»»****»*»»»**»»»* 

2430 REM * * 

2440 REM * TIRO * 

2450 REM * * 

2460 REM «il»*»»*»»*****»********** 

2470 REM 

2480 FC-FC♦ 1 :F-X:0-Y:PLAY "s10m40000o1 a":S 
C-SC"50:GOSUB 3020:ON K GOSUB 2570,2660,27 
50,2840 
2490 RETURN 
2500 REM 

2510 REM **»******»»»»♦«***»**♦*** 

2520 REM ♦ * 

2530 REM * TIRO ALTO » 

2540 REM » * 

2550 REM »*«»***»»»*»**»*********« 

2560 REM 

2570 FA- 1 : PUT SPRITE 1 1 , ( F , O-i 22 ) , 1 5 , 40 : 0-0 
"10:IF 0 <16 THEN FA-0:PUT SPRITE 11, (0,0), 
0,40:RETURN 
2580 RETURN 
2590 REM 

2600 REM **»*»»»«******»»*****»**» 

2610 REM * * 

2620 REM * TIRO DESTRA * 

2630 REM * * 

2640 REM «ti*****»****»»*»***»**»** 

2650 REM 

2660 FA-2:PUT SPRITE 11 ,(F♦22,0),15,41 :F-F 

♦ 10 : IF F>230 THEN FA=0:PUT SPRITE 11,(0,0) 
,0,41 : RETURN 

2670 RETURN 
2680 REM 

2690 REM »»»*»***»*»******««»***** 

2700 REM » * 

2710 REM * TIRO BASS/) * 

2720 REM * * 

2730 REM *»»*»**»***«««»»»*»**»»** 

2740 REM 

2750 F A = 3 :PUT SPRITE 1 1 ,(F,0 +22),15,43 : 0-0 

♦ 10 : IF 0>186 THEN FA-0:PUT SPRITE 11,(0,0) 
,0,43:RETURN 

2760 RETURN 
2770 REM 

2780 REM ************************* 

2790 REM * * 

2800 REM * TIRO SINISTRA * 

2810 REM * * 

2820 REM »*»*»»***»»**»«*»***»*»»» 

2830 REM 

2840 FA-4 :PUT SPRITE 11 ,(F-22,0),15,42 :F-F 
-10:IF F<15 THEN FA-0:PUT SPRITE 11,(0,0), 
0,42:RETURN 
2850 RETURN 
2860 REM 

2870 REM ***»**»**»»**«»*****»»**» 

2880 REM * » 

2890 REM * MORTE DEL PESCE * 

2900 REM * * 

2910 REM ************************* 

2920 REM 

2930 VI-VI-1:P-96:FOR N-40 TO 43:PUT SPRIT 
E 11,(0,0),0,N:NEXT:FOR I-Z TO 150 STEP 10 
:FOR Q-0 TO 7 :P-P-1 : PLAY "vi 4n-p;":PUT SPR 
ITE 0, (W,I),15,Q:FOR L-0 TO 25 :NEXT:NEXT:N 
EXT :PUT SPRITE 0,(W , I),15,7 :PUT SPRITE 11, 
( W-=1 ,1 ) , 1 5,42: FOR 1-1 TO 1 000:NEXT 
2940 SC-SC + 100:G0SUB 3020 :PS-PS+1 :F-0: 0-20 
9 : RETURN 
2950 REM 

2960 REM a************************ 

2970 REM * » 

2980 REM * STAMPA PUNTI * 
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2990 REM * * 

,0,0,0,0,0,64,192,224,160,224,0,0,0,0,0,0 

3000 REM ************************* 

3430 DATA 0,0,0,1,0,1,1,3,1,1,1,0,0,0,0,0, 

3010 REM 

0,0,0,192,128,160,192,192,192,224,64,192,0 

3020 IF SCO THEN SC-0 

, 0 , 0,0 

3030 LINE (72,0)->(120,8) ,1 ,BF:DRAW "bm64,0 

3440 DATA 0,0,0,0,0,2,3,7,5,7,0,0,0,0,0,0 , 

"sprint #1,SC:PLAY " v 1 51 61 » o7a " : R ETURN 

0,16,16,60,112,224,192,224,128,0,0,0,0,0,0 

3040 REM 

,0 

3050 REM ************************* 

3450 DATA 0,0,0,0,0,0,0,7,11,15,2,0,0,0,0, 

3060 REM * * 

0,0,0,0,0,0,0,128,232,248,200,32,0,0,0,0,0 

3070 REM * PERDITA * 

3460 DATA 0,0,0,0,0,3,2,3 , 1 ,0,0,0,0,0,0,0, 

3080 REM * * 

0,0,0-, 0,0,128,224,192,224,240,188,16,16,0, 

3090 REM ************************* 

0,0 

3100 REM 

3470 DATA 2,5,5,4,3,1,1,0,0,3,3,6,6,12,8,0 

3110 GOSUB 3230 :STRIG(00) OFF :SCREEN 1 :IF 

,0,128,128,128,128,128,128,0,0,192,192,96, 

SCO THEN SC-0: LOCATE 9,2,0:PRINT "PUNTI:" 

96,48,16,0 

;SC: LOCATE 0,5,0:PRINT " NON SEI STATO M 

3480 DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,16,1 

OLTO BRAVO":PRINT:PRINT" HAI USATO";:PRI 

6,0,64,64,0,0,0,0,128,128,0,0,0,0,0,8,8 

NT USING"###"}FC{SPRINT " ARPIONI":PRINT 

3490 DATA 2,5 , 5,4,3 , 1 , 1 ,0,0,1 , 1 , 1 , 2,2,0,0 , 

3120 PRINT " HAI PRESO "; PS ;" PESCI" 

0,128,128,128,128,128,128,0,0,128,64,64,64 

3130 FOR 1-1 TO 10000:NEXT:RUN 

,64,0,0 

3140 REM 

3500 DATA 0,0,0,0,0,0,0,1 , 1 ,0,0,0,0,0,4 , 4 , 

3150 REM ************************* 

0,64,64,0,0,0,0,128,128,0,0,0,0,0,32,32 

3160 REM * * 

3510 DATA 2,5,5,4,3,1,1,0,0,1,1,1,1,1,0,0, 

3170 REM * VITTORIA * 

0 , 128 , 128 , 128 , 128 , 128 , 128 , 0 , 0 , 128 , 128 , 128 , 

3180 REM * * 

128 , 128 , 0,0 

3190 REM ************************* 

3520 DATA 0,0,0,0,0,0,0,1 ,1 ,0,0,0,0,0,1 , 1 , 

3200 REM 

0,64,64,0,0,0,0,128,128,0,0,0,0,0,128,128 

3210 GOSUB 3230 :STRIG(00) OFF :SCREEN 1 : LOC 

3530 DATA 0,0,0,0,96,56,30,6,6,30,56,96,0. 

ATE 9,2,0:PRINT ”PUNTI:";SC:LOCATE 0,6,0:P 

0,0,0,0,0,0,0,0,0,0,126,118,17,14,0,0,0,0, 

RINT " BRAVO ! SEI ARRIVATO ALLA FINE 

0 

HAI UCC 

3540 DATA 0,0,0,192,0,0,0,1,1,0,0,0,192,0, 

ISO 4 PESCI" 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0,0 

3220 LOCATE 0,13»0:PRINT " CON ";F 

3550 DATA 0,0,0,0,0,0,60,2,14,48,0,0,0,0,0 

C;" ARPIONI":PRINT ” 

,0,0,0,0,0,0,0,0,126,118,17,14,0,0,0,0,0 

HAI FATTO UNA BELLA PESCA.": 

3560 DATA 0,0,0,0,0,192,0,1,1,0,192,0,0,0, 

FOR 1-1 TO 10000 :NEXT:RUN 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0,0 

3230 SOUND 7,7: SOU N D 6,11:S0UND 12.40-.F0R 

3570 DATA 0,0,0,0,0,0,0,62,62,0,0,0,0,0,0, 

C -8 TO 10 : SOUND C,16 :NEXT: SOUND 13,14:RETU 

0,0,0,0,0,0,0,0,126,118,17,14,0,0,0,0,0 

RN 

3580 DATA 0,0,0,0,0,0,0,193,193,0,0,0,0,0, 

3240 REM 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0,0 

3250 REM ***»**•»»***»»»*««»*»*»*» 

3590 DATA 0,8,12,6,6,3,3,0,0,1,1,3,4,5,5,2 

3260 REM * » 

,0,16,48,96,96,192,192,0,0,128,128,128,128 

3270 REM * DATI * 

,128,128,0 

3280 REM * * 

3600 DATA 16,16,0,0,0,0,0,1,1,0,0,0,0,0,0, 

3290 REM ************************* 

0,8,8,0,0,0,0,0,128,128,0,0,0,0,64,64,0 

3300 REM 

3610 DATA 0,0,2,2,1 , 1 , 1 ,0,0,1 ,1 ,3,4,5,5,2, 

3310 DATA 1,2,7,7,7,15,7,7,7,7,3,3,3,1,3,4 

0,0,64,64,64,64,128,0,0,128,128,128,128,12 

,0,128,128,192,224,192.192,192,128,128,192 

8 , 128,0 

,128,128,0,128,64 

3620 DATA 4,4,0,0,0,0,0,1 ,1 ,0,0,0,0,0,0,0, 

3320 DATA 0,0,0,0,0,0,0 ,'1 , 1 , 3,7 , 61 , 8 ,. 8 ,0,0 

32,32,0,0,0,0,0,128,128,0,0,0,0,64,64,0 

,0,6,10,30,252,124,252,252,244,244,0,0,0,0 

3630 DATA 0,0,1 , 1 , 1 ,1 ,1 ,0,0,1 , 1 ,3,4,5,5,2 , 

, 0,0 

0 , 0 , 128 , 128 , 128 , 128 , 128 , 0 , 0 , 128 , 128 , 128,12 

3330 DATA 0,0,0,0,0,131,95,127,95,132,0,0, 

8,128,128,0 

0,0,0,0,0,0,0,0,32,252,254,253,254,248,16, 

3640 DATA 1 ,1 ,0,0,0,0,0,1 ,1 ,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0,0 

128,128,0,0,0,0,0,128,128,0,0,0,0,64,64,0 

3340 DATA 0,0,8,8,56,12,6,15,3,3.3,1,0,1,0 

3650 DATA 0,0,0,0,0,0,0,126,110,136,112,0, 

,0,0,0,0,0,0,0,0,128,208,240,240,248,252,2 

0,0,0,0,0,0,0,0,6,28,120,96,96,120,28,6,0, 

50,14,0 

0 , 0,0 

3350 DATA 2,1,0,1,1,3,1,1,3 , 3,3,7,3,1,1 ,0, 

3660 DATA 0,0,0,0,0,0,96,1,1,0,0,0,0,0,0,0 

32,192,128,192,192,192,224,224,224,224,240 

,0,0,0,3,0,0,0,128,128,0,0,0,3,0,0,0 

,224,224,224,64,128 

3670 DATA 0,0,0,0,0,0,0,126,110,136,112,0, 

3360 DATA 0,0,0,0,0,0,0,1,11,15,15,31,63,9 

0,0,0,0,0,0,0,0,0,0,60,64,112,12,0,0,0,0,0 

5,112,0,0,0,16,16,28,48,96,240,192,192,192 

,0 

,128,0,128,0,0 

3680 DATA 0,0,0,0,0,0,96,1,1,0,0,0,0,0,0,0 

3370 DATA 0,0,0,0,4,63,127,191,127,31,8,0, 

,0,0,0,0,0,3,0,128,128,0,3,0,0,0,0,0 

0,0,0,0,0,0,0,0,0,193,250,254,250,33,0,0,0 

3690 DATA 0,0,0,0,0,0,0,126,110,136,112,0, 

,0,0,0 

0,0,0,0,0,0,0,0,0,0,0,124,124,0,0,0,0,0,0, 

3380 DATA 0,96,80,120,63,62,63,63,47,7,0,0 

0 

,0,0,0,0,0,0.0,0,0,0,0,128,128,192,224,188 

3700 DATA 0,0,0,0,0,0,96,1,1,0,0,0,0,0,0,0 

,16,16,0,0 

,0,0,0,0,0,0,0,131,131,0,0,0,0,0,0,0 

3390 DATA 0,0,0,0,3,2,7,3,3.3,5,1 ,3,0,0,0, 

3710 DATA 0,0,0,0,0,0,0,0,0,0,1 ,1 ,1 ,1 ,1 ,1 , 

0,0,0,0,0,128,128,128,192,128,128,0,128,0, 

0,0,0,0,0,0,0,0,'0,0,0,0,0,0,0,0 

0,0 

3720 DATA 0,0,0,0,0,0,0,0,252,0,0,0,0,0,0, 

3400 DATA 0,0,0,0,0,1,7,3,7,15,61,8,8,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

0,0,0,0,0,0,192,64,192,128,0,0,0,0,0,0,0 

3730 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 , 

3410 DATA 0,0,0,0,0,0,1,23,31,19,4,0,0,0,0 

0,0,0,0,0,0,0,0,63,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,224,208,240,64,0,0,0,0,0 

3740 data 1,! , 1 r 1.1,1.0.0.0.0.0.0.0.0.0.0. 

3420 DATA 0,0,4,4,30,7,3,7,1,0,0,0,0,0,0,0 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 

O 
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DISASSEMBLER 

Configurazione richiesta: 16 KByte + stamp. opz. Occupazione di memoria: 14980 Byte 
Il programma è registrato su cassetto con il nome: DISAS 


U n disassembler è un programma in grado di 
trasformare una serie di codici memorizzati 
nel computer nel corrispettivo significato mnemoni¬ 
co attribuito. Quando si inizia a lavorare con il lin¬ 
guaggio macchina questo strumento diventa indi¬ 
spensabile e serve anche per la traduzione, in un 
linguaggio comprensibile, delle routine del sistema 
operativo del computer contenute nelle ROM. 

I codici prodotti da questo programma sono alcune 
centinaia. In ogni caso qualsiasi testo che affronti 
l'utilizzo del microprocessore Z80 può essere van¬ 
taggiosamente utilizzato. Veniamo ora alla spiega¬ 
zione del programma vero e proprio. Dopo aver 
caricato il programma con CLOAD e averlo man¬ 
dato in esecuzione con RUN compare un menù con 
tre opzioni. Vediamole in dettaglio. 

7. LETTURA MEMORIA Legge una parte della me¬ 
moria (indifferentemente RAM o ROM) e riporta i 
codici relativi. 

Bisogna indicare il valore di inizio della area e quel¬ 
lo di fine. Naturalmente il valore di fine dovrà essere 
maggiore di quello di inizio. 

Viene chiesto anche se si intende stampare i dati. 
L'output che si ottiene è il seguente: 


INDIRIZZO 

DEC 

HEX 

CODICE 

MACCHINA 

CODICE 

MNEMONICO 


0 

0 

F3 

DI 

1 

1 

C3D702 

JP 02D7 

4 

4 

BF 

CP A 

5 

5 

1B 

DEC DE 

6 

6 

98 

SBC A,B 

7 

7 

98 

SBC A,B 

8 

8 

C38326 

JP 2683 

n 

B 

00 

NOP 

12 

C 

C3B601 

JP01B6 


2. MEMORIZZAZIONE DATI Serve a caricare su 
RAM un programma in linguaggio macchina che 
dovrà essere successivamente tradotto. Bisogna in¬ 
dicare l'indirizzo di inizio e poi in sequenza i codici 
(da 0 a 255) per terminare scrivere FINE. 

3. FINE PROGRAMMA Termina il programma ma 
solo dopo aver confermato l'opzione. 


1 0 

REM ***** 

# * * 

* 

# * 

* # 

* 

# 

# # 

# # * 

t * 

* * 

* 

# 

# 

20 

REM * 














30 

REM * 

DI 

SAS 

SEM 

BLE 

R 

Z 

80 




40 

REM * 














50 

REM * 














60 

REM * d 

i M 

a 

ur 

i z 

i 

0 

Gal) 

. u 

zz 

0 



70 

REM * 














80 

REM * GRU 

PP0 


ED 

ITO 

R 

I A 

LE 

J 

AC 

KS0 

90 

REM * 














100 

REM * 














1 1 0 

REM ***** 

* * # 

* 

* * 

* * 

* 

# 

* # 

* * * 

t * 

# * 

# 

* 

# 

1 20 

REM 














1 30 

REM 














1 40 

REM 














150 

CLEAR 400 














1 60 

KEY OFF 














1 70 

SCREEN 0 














1 80 

WIDTH 40 














1 90 

COLOR 15, 

1 













200 

CLS 














21 0 

ST *0 














220 

P0KE &HFC 

AB , 

2 

55 











230 

0UT &HAB, 

1 2 













240 

GOSUB 234 

0 













250 

LOCATE 11 

,3 













260 

PRINT "DI 

SASS 

EM 

BL 

E 

R 

Z 

80' 

1 





270 

LOCATE 9, 

5 













280 

PRINT "di 

Ma 

u 

r i 

z i 

0 


G a 

11 u z 

zo 

" 



290 

LOCATE 4, 

7 













300 

PRINT "Gr 

upp 

0 

E 

d i 

t 

0 

r i 

ale 


Ja 

c 

k 

s< 

310 

PLAY " dcd 

" 













320 

LOCATE 4, 

1 9 













330 

PRINT "Pr 

em i 


un 

t 

a 

s 

to 

per 

c 

0 

n 

t 

340 

GOSUB 107 

0 













350 

CLS 














360 

GOTO 2120 














370 

REM 














380 

REM ***** 

# * * 

* 

* * 

* * 

* 

# 

* * 

* * * 

: * 

* # 

# 



390 

REM * 











# 



400 

REM * LETT 

U 

RA 

M 

EM 

OR 

I A 



# 



4 1 0 

REM * 











# 



420 

REM ***** 

# # # 

# 

* * 

# # 

# 

# 

* * 

# * * 

i # 

# * 

# 



430 

REM 














4 40 

CLS 














450 

LOCATE 11 

,3 













460 

PRINT "DI 

SASS 

EM 

BL 

E 

R 

Z 

80" 






470 

PRINT : PRI 

NT : 

P 

RI 

NT 










480 

INPUT " 


I 

n i 

z i 

0 


ar 

ea 


11 

; 

A 

$ 

490 

A*VAL(A$) 














500 

INPUT " 


F 

i n 

e 

a 

r 

ea 



" 

; 

B 

$ 


510 W-A 

520 B-VAL(B$):W-A 

530 IF B<*A THEN BEEP:PRINT:PRINT " 

-- Errore -:PRINT:PRINT " 

CONTROLLA I DATI":PRINT : GOTO 480 
540 PRINT:PRINT:PRINT" VUOI STAMPARE < 

S/N> ?":PRINT:PRINT 
550 ST$=INKEY$:IF ST$«"" THEN 550 
560 IF ST $ = "S" THEN PRINT "PREPARA LA STAM 
PANTE poi premi un tasto":PRINT:PRINT:ST-1 
:G0SU B 1070 
570 GOSUB 1060 

c. an D T _ 1 
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LISTATO 

QQOOQOOQOQOQOOOO 



590 IF ST-1 THEN GOSUB 1080 
600 C1$=HEX$(PEEK(W)) 

610 IF LEN C C1 $)* 1 THEN C10"+ C1 $ 

620 C2$-HEX$(PEEK(W+1)) 

630 IF LEN(C 2$)* 1 THEN C2$-"0"*C2$ 

640 C3$=HEX$(PEEKCW + 2) ) 

650 IF LEN(C3$ )* 1 THEN C3$="0"*C3$ 

660 C4$=HEX$(PEEK(W+2)) 

670 IF LEN(C 4$ ) * 1 THEN C4$-"0"*C4$ 

680 -IF CI $ - " C B " THEN RESTORE 1 390:G0T0 760 

690 IF CI $ = " E D " THEN RESTORE 1 570 :G0T0 760 

700 IF CI $ = "FD" AND C2$-"CB" THEN RESTORE 
1630:GOTO 780 

710 IF CI $ = "DD" AND C2$=”CB" THEN RESTORE 
1 6 30 :D»1 : GOTO 780 

720 IF CI $ = " F D " THEN RESTORE 1 670 :G0T0 810 

730 IF CI $ = "DD" THEN RESTORE 1 670 :D-1 : GOTO 

810 

740 RESTORE 1180 

750 GÒSUB 840 :IF MID$(X$, 1 ,2 )-C1 $ THEN 900 
ELSE GOTO 750 

760 GOSUB 840 : IF MID$(X$,1 ,2)-C2$ THENX$-C 
1$ + X$: GOTO 900 
770 GOTO 760 
780 GOSUB 840 

790 IF MID$(X$,1,2)-C4$ THENX$-C1$ + C2$+C3$ 
*X$ : GOTO 900 
800 GOTO 780 

81Q IF C2$ = "36" THEN X$ = C1 $ + C2$ + C3$ + C4$ : 7 $ 

= "LD (IY + " + C3$ + ")." *C4$:Z1=4 : GOTO 960 

820 GOSUB 840 : IF MIDI(X$,1 ,2)-C2$ THEN X$- 

C1$ + X$: GOTO 900 

830 GOTO 810 

840 READ X$ 

850 READ Y $ 

860 READ Z$ 

870 IF X$«"mmm" AND ST-1 THEN GOSUB 1090:L 

PRINT A ;TAB(9);HEX$(W);TAB(15);C1$ ;"-- Z 

ONA DI DATI 

880 IF X$-"mmm” THEN GOSUB 1 090:PRINT A ;TA 
B(9);HEX$(W);TAB(15);C1$;" — ZONA DI DAT 

I ;W-W+1 :RETURN 600 

890 RETURN 

900 ZÌ-VAL(MID$(Z$,1,1)):Z2-VAL(MID$(Z$,2, 
1 )):Z3“VAL("&H"*(MID$(Z$,3.1 ) )): IF Z2-0 TH 
EN 970 

910 IF Z2-2 THEN CD$-C2$:CM$-C2$:CL-2 
920 IF Z2-3 THEN CD$ = C3$:CM$-C3$ :CL-2 
930 IF Z2-4 THEN CD$-C 3 $ » C 2$ : CM$«C 2$ + C 3 $ : C 
L-4:Z2-2 

940 IF Z2-5 THEN CD$ = C 4 $+ C 3$ : CM $-C 3$+ C 4 $ : C 
L-4:Z2-3 

950 MID$(X$ , (Z2* 2)-1 ,CL)-CM$:MID$(Y$,Z3,CL 
) - C D $ 

960 IF D-1 THEN GOSUB 1040 

970 GOSUB 1020:GOSUB 1090:PRINT A;TAB(9);H 
EX$(W);TAB(15);X$;TAB(25);Y$:RI-RI+1:IF RI 
-20 THEN PLAY"DC":GOSUB 1 070 :CLS:GOSUB 106 
0 :RI-1 

980 IF ST-1 THEN LPRINT A ;TAB(9)iHEX$(W);T 
AB(15);X$;TAB(25):Y$ 

990 W-W + Z1 : IF W>-B THEN PRINT:GOSUB 1 090:P 
RINT A;TAB(9);HEX$(W);TAB(15);"FINE DELL ’A 
REA":PRINT:IF ST-0 THEN GOSUB 1070:GOTO 21 
20 

1 000 IF W>-B AND ST-1 THEN LPRINT :LPRI NT A 
;TAB(9); H E X $ ( W );TAB(15);"FINE DELL'AREA":L 
PRINT:GOSUB 1070:GOTO 2120 
1010 GOTO 600 

1020 FOR Q-1 TO LEN(Y$):IF MID$(Y$,Q,!)-CH 
R $(4 6 ) THEN MID$(Y$,Q,1 )-CHR$(44) 

1030 NEXT:RETURN 

1040 FOR QQ-1 TO LEN(Y$):IF MID$(Y$,QQ,1 ) - 
CHR$(89 ) THEN MID$(Y$,QQ,1 )-CHR$(88) 

1 050 NEXT: RETURN 

1 060 CLS:PRINT:PRINT "(C2551 — INDIRIZZO-- 
CODICE CODICE ":PRINT "DECIM. ESAD. 
MNEMONICO":PRINT:RETURN 
1070 IF INKEY$-"" THEN 1070 ELSE RETURN 


1080 LPRINT : LPRINT "-'-INDIRIZZO— CODICE 
CODICE ":LPRINT "DECIM. ESAD. 

MNEMONICO":LPRINT:RETURN 

1090 IF SGN(W)— THEN A-32768 !-(ABS(W)-327 
68 ! ) ELSE A-W 
1100 RETURN 
1110 REM 

1120 REM ************************ 

1130 REM * * 

1140 REM * DATI * 

1150 REM * * 

1160 REM ************************ 

1170 REM 

1180 DA(C255 )TA 8E.ADC A . (HL ) . 1 , 8F,ADC A.A 
, 1 ,88 , ADC A.B,1,89,ADC A.C,1,8A,ADC A.D.1, 
8b,ADC A.E,1,8C,ADC A.H,1,8D,ADC A.L,1,CEn 
n.ADC A.NN,227 , 86 .ADD A.(HL),1 , 87,ADD A.A, 

1,80,ADD A.B,1 

1190 DATA 81,ADD A.C,1,82,ADD A.D,1,83,ADD 
A.E,1,84,ADD A.H,1,85,ADD A . L,1 ,C6nn,ADD 
■ NN,227,09 , ADD HL.BC,1 ,19,ADD HL.DE,1,29,A 
DD HL.HL.1 ,39,ADD HL.SP,1 ,A6,AND (HL),1,A7 
,AND A,1 

1200 DATA AO.AND B,1,A1,AND C,1,A2,AND D,1 
,A3,AND E,1,A4,AND H,1,A5,AND L,1 ,E6nn,AND 
NN,225 , D9 , EXX,1 ,76,HALT,1 ,DBnn , IN A.(NN), 
227,DCaaaa,CALL C.ADRR,348,FCaaaa,CALL M.A 
DRR.348 

1210 DATA D4aaaa,CALL NC ..ADRR , 3 4 9 , CDaaaa , C 
ALL ADRR,346,C4aaaa,CALL NZ.ADRR,349,F4aaa 
a,CALL P.ADRR,348,ECaaaa,CALL PE.ADRR,349, 
E4aaaa,CALL PO.ADRR,349,CCaaaa,CALL Z.ADRR 
,348 

1220 DATA 3F,CCF,1,BE,CP (HL),1,BF,CP A,1, 
B8.CP B,1 ,B9,CP C,1 ,BA,CP D.I.BB.CP E,1 ,BC 
,CP H,1 ,BD,C P L,1 ,FEnn,C P NN , 224,2F , CPL , 1 , 
27,DAA,1 

1230 DATA 35,DEC (HL),1,3D,DEC A,1,05,DEC 
B,1,OB,DEC BC,1,OD,DEC C,1,15,DEC D,1,1B,D 
EC DE,1 ,1D,DEC E,1,25,DEC H,1,2B,DEC HL,1, 
2D,DEC L,1 , 3B,DEC SP,1,F3,DI,1,1Odd,DJNZ d 
e ,226 

1 240 DATA FB.EI,1 ,E3,EX (SP ) .HL,1 ,08,E X AF 
.AF,1 ,EB,EX DE.HL,1 , 34 , INC (HL ) , 1 , 3C,INC A 
,1,04,INC B,1,03,INC BC,1 ,OC,INC C,1,14,IN 
C D,1,13, INC DE,1 , 1C , INC E,1,24,INC H,1 
1250 DATA 23,INC HL,1,2C,INC L,1,33,INC SP 
,1 ,E9,JP (HL ) ,1 ,DAaaaa , JP C.ADRR, 346,FAaaa 
a,JP M.ADRR, 346 ,D2aaaa,JP NC.ADRR, 347 ,C3aa 
aa,J P ADRR, 344 ,C2aaaa,JP NZ.ADRR, 347,F2aaa 
a,J P P.ADRR,346 

1260 DATA EAaaaa,JP PE.ADRR,347,E2aaaa,JP 
PO.ADRR,347.CAaaaa,JP Z.ADRR,346,38dd,JR C 
• de , 226,1 8dd,JR de,224,30dd , JR NC.de, 227,2 
Odd.JR NZ.de,227,28dd,JR Z.de,226,02,LD (B 
C ) . A , 1 

1270 DATA 12,LD (DE).A,1,77,LD (HL).A,1,70 
, LD (HL ) .B,1 ,71 ,LD (HL).C,1 ,72,LD (HL).D,1 
,7 3,LD (HL).E,1 ,74,LD (HL).H,1 ,75,LD (HL). 
L,1 ,3 6nn,LD (HL ) .NN, 229,4C,LD C.H,1,4D,LD 
C . L , 1 

1280 DATA OEnn.LD C.NN,226,56,LD D.(HL),1, 
57,LD D.A,1 ,50,LD D.B,1,51,LD D.C,1,52,LD 
D.D,1 ,53,LD D.E,1 ,5 4 , LD D.H,1,55,LD D.L.1, 
32nnnn , LD ( NNNN ) . A , 345,22nnnn , LD (N'NNN).HL 
.345 

1290 DATA OA,LD A.(BC),1 ,1 A,LD A.(DE),1,7E 
, LD A. (HL) ,1 ,3Annnn,LD A . (NNNN),347,7F,LD 
A . A , 1 , 78,LD A.B,1,79,LD A.C,1,7A,LD A.D.1, 
7B.LD A . E , 1 , 7C , LD A.H,1,7D,LD A.L,1,3Enn,L 
D A.NN,226,46,LD B.(HL),1,47,LD B.A,1,40,L 
D B.B,1,41,LD B.C,1,42,LD B.D,1,43,LD B.E, 
1 

1300 DATA 44,LD B.H,1,45,LD B . L , 1 ,06nn,LD 
B.NN,226,01nnnn,LD BC.NNNN,347,4E,LD C.(HL 
) , 1 , 4F , LD C . A , 1 , 48 , LD C.B,.1,49,LD C.C.1.4A 
, LD C.D.1.4B.LD C . E , 1 , 31nnnn , LD SP.NNNN,34 
7,00 ,NOP , 1 

1310 DATA B6,OR (HL),1,B7,0R A,1,BO,OR B,1 
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,B1, OR C,1,B2,0R D,1,B3,0R E,1,B4,0R H,1,B 
5,OR L , 1 , F 6nn , OR NN , 224 , 16nn , LD D.NN,226,1 
1nnnn,LD DE . NNNN,347,5E,LD E . (HL ) , 1 , 5F,LD 
E . A , 1 

1320 DATA 58,LD E.B,1,59,LD E.C,1,5A,LD E. 
D,1,5B,LD E.E,1,5C,LD E.H,1,5D,LD E.L,1,1E 
nn,LD E.NN, 226,66 ,LD H.(HL),1 ,67 , LD H.A.1, 
60,LD H.B,1 ,61 ,LD H.C,1,62,LD H.D,1,63,LD 
H , E , 1 , 6 4,LD H.H.1 

1 330 DATA 65,LD H . L , 1 , 26nn,LD H.NN,226,2An 
nnn.LD HL . (NNNN),348,21nnnn,LD HL . NNNN , 347 
, 6E , LD L. (HL) , 1 ,6F,LD L.A.1.68.LD L.B.1,69 
,LD L.C,1,6A,LD L.D,1,6B,LD L.E,1,6C,LD L. 
H , 1 ,6D,LD L.L,1 

13*10 DATA 2Enn , LD L . N N , 2 2 6 , F 9 , LD SP.HL.1.D 
3nn , OUT ( NN ) . A , 226 , F1 , POP AF,1,C1,P0P BC,1 
,DI,POP DE,1 ,E 1 ,POP HL.1.F5.PUSH AF.1.C5.P 
USH BC,1,D5,PUSH DE,1,E5,PUSH HL,1,C9,RET, 
1 

1350 DATA D8,RET C,1,F8,RET M,1,D0,RET NC, 

l.CO.RET NZ,1 , FO,RET P,1,E8,RET PE.1.E0.RE 
T PO , 1 ,C8,RET Z,1 , 17 , RLA,1 ,C7,RST 00.1.CF, 
RST 08,1,D7,RST 10H,1,DF,RST 18H,1,E7,RST 
20H , 1 , EF,RST 28H,1,F7,RST 30H,1,FF,RST 38H 
,1 ,9E,SBC A . (HL),1 

1 360 DATA 9F.SBC A.A,1,98,SBC A.B,1,99,SBC 
A . C , 1 , 9A , S BC A . D,1 ,9B,SBC A.E,1,9C,SBC A. 
H , 1 , 9D , SBC A . L , 1 ,DEnn,SBC A . NN,227,37,SCF , 
1 ,07,RLCA,1 ,1F,RRA,1 ,0F,RRCA,1 ,91 ,SUB C,1 , 
92,SUB D,1,93.SUB E,1,9*1,SUB H,1 
1370 DATA 95,SUB L,1,D6nn,SUB NN,225,AE,XO 
R (HL),1 .AF.XOR A,1,A8,X0R B,1,A9,XOR C,1, 

AA. XOR D,1 ,A B,XOR E,1,AC,XOR H,1,AD,XOR L, 
1,EEnn,XOR NN,225,96,SUB (HL),1,97,SUB A,1 
,90,SUB B,1 

1 380 DATA mmm, , 

1 390 DATA 46,BIT 0.(HL),2,47,BIT 0.A,2,*t0, 
BIT O.B,2,*t1,BIT O.C,2,42,BIT 0.D,2,43,BIT 
0.E,2,4 A,BIT 0.H,2,45,BIT 0.L,2,4E,BIT 1. 
(HL) ,2,7F,BIT 7.A,2,78,BIT 7.B,2,79,BIT 7. 
C,2,7A,BIT 7 . D,2,7B,BIT 7.E,2,4F,BIT 1.A.2 
,48,BIT. 1 .B ,2 

1400 DATA 49,BIT 1.C,2,4A,BIT 1.D,2,4B,BIT 

1. E,2,4C,BIT 1.H,2,4D,BIT 1.L,2,56,BIT 2. 
(HL),2,57,BIT 2.A,2,50,BIT 2.B,2,51,BIT 2. 

C, 2,52,BIT 2.D,2,53,BIT 2.E,2,54,BIT 2.H.2 
,55,BIT 2.L,2,5E,BIT 3•(HL),2,5F,BIT 3.A,2 
,58,BIT 3.B,2,59,BIT 3-C.2 

1410 DATA 5A,BIT 3.D,2,5B,BIT 3.E,2,5C,BIT 

3. H,2,5D,BIT 3.L,2,66,BIT 4.(HL),2,67,BIT 

4. A,2,60,BIT 4.B,2,61,BIT 4.C,2,62,BIT 4. 

D, 2,63,BIT 4.E,2,64,BIT 4.H,2,65,BIT 4.L.2 
,6E,BIT 5.(HL),2,6F,BIT 5.A,2 

1420 DATA 68,BIT 5.B,2,69,BIT 5.C,2,6A,BIT 

5. D , 2,6B,BIT 5.E,2,6C,BIT 5.H,2,6D,BIT 5. 

L, 2,76,BIT 6.(HL) ,2,77,BIT 6.A,2,70,BIT 6. 
B,2,71,BIT 6.C,2,72,BIT 6.D,2,73,BIT 6.E,2 
,74,BIT 6.H.2 

1430 DATA 75,BIT 6.L,2,7E,BIT 7-(HL),2,7C, 
BIT 7.H,2,7D,BIT 7.L,2,8B,RES 1.E,2,8C,RES 
1 .H,2,8D,RES 1.L,2,96,RES 2.(HL),2,97,RES 

2. A,2,90,RES 2.B,2,91,RES 2.C,2,92,RES 2. 

D, 2,93,RES 2.E,2 

1440 DATA 94,RES 2.H,2,95,RES 2.L,2,9E,RES 

3. (HL),2,9F,RES 3.A,2,98,RES 3.B,2,99,RES 

3.C,2,86,RES 0 . (HL),2,87,RES 0.A,2,80,RES 
0.B,2,81,RES 0,C,2,82,RES O.D,2,83,RES 0. 

E, 2,84,RES 0.H,2,85,RES O.L,2,8E,RES 0.(HL 
) ,2 

1 450 DATA 8F , RES 1.A,2,88,RES 1.B,2,89,RES 
1 . C , 2,8A , RES 1 . D , 2 , BB , RES 7.E,2,BC.RES 7'. 
H,2,BD,R ES 7.L,2,16,R L (HL),2,17,RL A,2,10 
,RL.B,2,11,RL C,2,12,RL D.2.13.RL E.2.14.R 
L H,2,15,RL L,2 

1460 DATA 9A,RES 3.D,2,9B,RES 3.E,2,9C,RES 

3. H,2,9D,RES 3.L,2,A6,RES 4.(HL),2,A7,RES 

4. A,2,AO,RES 4.B,2,Al,RES 4.C,2,A2,RES 4. 
D,2,A3,RES 4.E,2,A4,RES 4.H,2,A5,RES 4.L,2 


,AE,RES 5.(HL),2 

1470 DATA AF.RES 5.A,2,A8,RES 5.B,2,A9,RES 

5.C,2,AA,RES 5.D,2,AB,RES 5.E,2,AC,RES 5. 

H, 2,AD,RES 5.L,2,B6,RES 6.(HL),2,B7,RES 6. 
A,2,BO,RES 6.B,2 , B1 , RES 6.C,2,B2,RES 6.D.2 
,B 3,R ES 6.E,2,B4,RES 6.H.2 

1480 DATA B5.RES 6.L,2,BE,RES 7.(HL),2,BF, 
RES 7.A,2,B8,RES 7.B,2,B9,RES 7.C,2,BA,RES 
7.D,2,C6,SET 0.HL,2,06,RLC (HL),2,07,RLC 

A, 2,00,RLC B,2,01 , RLC C,2,02,RLC D,2,03,RL 
C E ,2 

1 490 DATA 04,RLC H,2,05,RLC L,2,1E,RR (HL) 
,2,1F,RR A,2,18,RR B,2,19,RR C,2,1A,RR D,2 
,1B,RR E,2,1C,R R H,2,1D,RR L,2,0E,RRC (HL) 
,2 , OF , RRC A , 2,08 , RRC B,2,09,RRC C,2,0A,RRC 
D,2,OB,RRC E,2,OC,RRC H,2,OD,RRC L,2 
1500 DATA DA,SET 3.D,2,DB,SET 3.E,2,DC,SET 

3. H,2,DD,SET 3•L,2,E6,SET 4.(HL) ,2,E 7,SET 

4. A,2,EO.SET 4.B,2,E1,SET 4.C,2,E2,SET 4. 

D, 2,E3,SET 4.E,2,E4,SET 4.H,2,E5,SET 4.L.2 
,EE,SET 5.(HL),2,EF,SET 5.A,2 

1510 DATA E 8.SET 5.B,2,E9,SET 5.C,2,EA,SET 

5. D,2,EB,SET 5.E,2,EC,SET 5.H,2,ED,SET 5. 
L,2,F6,SET 6.(HL),2,F7,SET 6.A,2,FO,SET 6. 

B, 2,FI,SET 6.C,2,F2,SET 6.D,2,C7,SET O.A,2 
,CO,SET O.B,2,C1,SET O.C,2,C2,SET O.D,2 
1520 DATA C 3,SET O.E,2,C4,SET O.H,2,C5,SET 

0.L,2,CE,SET 1.(HL),2,CF,SET 1.A,2,C8,SET 

1. B,2,C9,SET 1.C,2,CA,SET 1.D,2,CB,SET 1. 

E, 2,CC,SET 1.H,2,CD,SET 1.L,2,D6,SET 2.(HL 
),2,D7,SET 2.A,2,DO,SET 2.B,2 

1530 DATA DI,SET 2.C,2,D2,SET 2.D,2,D3,SET 

2. E,2,D4,SET 2.H,2,D5,SET 2.L,2,DE,SET 3- 
(HL),2,DF,SET 3-A,2,D8,SET 3-B,2,D9,SET 3. 

C, 2,20,SLA B,2,21,SLA C,2,22,SLA D,2,23,SL 
A E,2,24,SLA H,2,25,SLA L,2,2E,SRA (HL),2, 
2F.SRA A,2 

1540 DATA 28.SRA B,2,29,SRA C,2,2A,SRA D,2 
,2B,SRA E,2,2C,SRA H,2,2D,SRA L,2,3E,SRL ( 
HL),2,3F,SRL A,2,38,SRL B,2,39,SRL C,2,3A, 
SRL D,2,3B,SRL E,2,3C,SRL H,2,3D,SRL L,2,F 
3,SET 6.E.2 

1550 DATAF4,SET 6.H,2,F5,SET 6.L,2,FE,SET 
7.(HL),2,FF.SET 7.A,2,F8,SET 7.B,2,F9,SET 
7.C,2,FA,SET 7.D,2,FB,SET 7.E,2,FC,SET 7.H 
,2,FD,SET 7.L,2,26,SLA (HL),2,27,SLA A,2 
1560 DATA mmm,, 

1570 DATA 4 A , ADC HL.BC,2,5A,ADC HL.DE,2,6-A 
,ADC HL.HL,2,7A,ADC HL.SP,2,46,IM 0,2,56,1 
M 1 ,2,5E,IM 2,2,78,IN A.(C),2,A 9,CPD,2,B9, 
CPDR.2.A1,CPI,2,B1,CPIR,2,40,IN B.(C),2 
1580 DATA 48,IN C . ( C ) , 2,5 0,1 N D.(0,2,58,1 
N E.(C),2,60,IN H.(C),2,68,IN L.(C),2,AA,I 
ND,2,BA,INDR,2,A2,INI,2,B2,IMIR,2,57,LD A. 

I, 2,5F,LD A.R,2,A8,LDD,2,B8,LDDR,2,A0,LDI, 
2,BO,LDIR,2,44,NEG,2,47,LD I.A.2 

1590 DATA 4F,LD R.A,2,BB,OTDR,2,B3,OTIR,2, 
79,OUT (C ) .A,2 , 41 ,OUT (C).B,2,49,OUT (C).C 
,2,51,OUT (C).D,2,59,OUT (C ) .E,2,61 ,OUT (C 
).H,2,69,OUT (C).L,2,AB,0UTD,2 
1600 DATA A3 ,OUTI ,2,4D .RETI ,2", 45 , RETN , 2,42 
,S BC HL.BC,2,52,SBC HL.DE,2,62,SBC HL.HL.2 
,72,SBC HL.SP,2,6F,RLD,2,67,RRD,2,43nnnn,L 
D (NNNN ).BC, 455,53nnnn ,LD ( NNNN ) . DE , 455,73 
nnnn,LD (NNNN), 455,4Bnnnn,LD BC . (NNNN ) , 458 
1610 DATA 5Bnnnn,LD DE.(NNNN),458,7Bnnnn,L 
D SP . (NNNN ) ,458 
1620 DATA mmm,, 

I630 DATA 46,BIT 0.(IY + dd),43B.7E,BIT 7.(1 

Y + dd ) ,4 3B,4E,BIT 1.(IY+dd),43B,56,BIT 2.(1 

Y + dd ), 43B ,5E , BIT 3.(IY + dd) , 43B , 66 , BIT 4.(1 

Y + dd), 43B,6E,BIT 5. (IY+dd),43B,76,BÌT 6.(1 
Y+dd),43B 

1 640 DATA 96,RES 2 . ( IY♦dd),43B,9 E,RES 3.(1 
Y+dd),43B,86,RES 0.(IY+dd),43B,8E,RES 1.(1 

Y + dd),43B , 16,RL (IY + dd),438,A6 , RES 4.(IY + d 
d) , 43B , AE,RES 5 . (IY + dd) , 43B,B6,RES 6.(IY + d 
d),43B , BE,RES 7 . (IY+ dd ) , 43B , 06,RLC (IY + dd) 
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,439,1E,RR (IY+dd/,438,OE.RRC (IY+dd),439 
1 650 DATA E 6 , SET 4 . (IY + dd),43B,EE,SET 5.(1 

Y + dd),43B,F6,SET 6 . (IY + dd),43B,C6,SET 0.(1 

Y + dd) ,«3B,CE,SET 1 . ( IY + dd ) , 4 3B , D 6 , SET 2.(1 

Y + dd) ,43B.DE.SET 3 . (IY + dd) ,43B,2E,SRA (IY + 
dd ), 439,3E .SRL ( IY + dd ) , <4 3 9 . FE . SET 7.(IY + dd 
),43B,26,SLA (IY+dd),439 

1 660 DATA Min , , 

1 670 DATA 8Edd,ADC A . ( IY + dd),33B,86dd,ADD 
A.(IY+dd) .33B.09.ADD IY.BC,2,19,ADD IY.DE, 
2,29,ADD IY.IY,2,39,ADD' IY.SP,2,A6dd,AND ( 
IY + dd) , 339 ,BEdd.CP (IY + dd ) , 338,35dd,DEC (I 

Y + dd) ,339 

1 680 DATA 2B , DEC IY,2,E3,EX (SP ) .IY,2,77dd 
,LD ( IY + dd) . A,338,70dd,LD (IY + dd).B, 338,71 
dd.LD (IY + dd ).C , 338,72dd,LD (IY + dd).D, 338, 
7 3d d , LD (IY + dd) , 338,34dd,INC ( I Y + dd ) , 339., 2 
3,INC IY , 2 

1 690 DATA E 9 , J P ( IY ) , 2,56dd,LD D.(IY + dd),3 
3A,74dd,LD ( IY + dd ) .H , 338,75dd ,LD (IY + dd).L 
, 338,22nnnn,LD (NNNN ) .IY , A 55,7Edd,LD A.(IY 
+ dd),33A,46dd,LD B .( IY + dd ), 33A,4Edd,LD C.( 
IY + dd ), 33A , F9 ,LD SP.IY.2 

1 700 DATA B6dd,OR ( IY + dd ) , 338,5Edd , LD E.(I 

Y + dd) ,33A,66dd),LD H. (IY + dd), 33A,2Annnn,LD 
IY.(NNNN),458,21nnnn,LD IY.NNNN,457,6Edd, 

LD L. (IY + dd) ,33A,E1 .POP IY,2,E5,PUSH IY,2, 
9Edd , SBC A. (IY + dd) , 33B,96dd,SUB (IY + dd),33 
9 , AEdd , XOR (IY + dd),339 
1710 DATA mmm,,,kkk,, 

1720 RESTORE:W=0 
1730 W-W+1 
1740 READ X$ 

1750 READ Y $ 

1760 READ Z$ 

1 770 IF X$-"kkk" THEN END 

1780 PRINT X$;TAB(10);Y$;TAB(25);Z$;TAB(30 
) ; W 

1790 GOTO 1730 
1800 REM 

1810 REM ******»*»»**»***»**»»»«« 

1820 REM * * 

1830 REM » INSERIMENTO DATI * 

1840 REM * » 

1850 REM **«*»«*»»»»»»»»»****»*»» 

1860 REM 

1870 ON ERROR GOTO 2570 
1880 CLS 
1890 PRINT 

1900 PRINT " INSERIMENTO DATI” 

1910 PRINT:PRINT:PRINT:PRINT 
1920 PRINT " Indirizzo inizio ";:INPU 

T A $ 

1930 A»VAL(A$):LL«A 

1 940 IF A > 65 5 35 ! OR A<0 THEN BEEP:BEEP:GOT 
0 1 920 

1950 PRINT " Scrivi <FINE> per termin 

are " 

1 960 PRI NT :PRINT 
1970 FOR G-A TO 65535! 


1 980 

PRINT " 

" ;USING "##### 

" ; G ; : 

PRINT 

" — 

> " ; : LINE INPUT A$ 



1990 

IF A$="FINE" 

THEN 2040 



2000 

A = V AL(A $) 




2010 

IF A<0 OR A>255 THEN PRINT: 

PRINT 

" 


ERRORE 

PRINT:BEEP:BEEP: GOTO 1 

980 





2020 

POKE G,A 




2030 

NEXT 




2040 

PRINT:PRINT 




2050 

PRINT " 

Indirizzo inizio : 

" ; LL 

2060 

PRINT " 

Indirizzo fine 


" ; G- 1 

2070 

PRINT:PRINT 




2080 
o II 

PRINT M 

Premi un tasto 

per 

uscir 

e 

2090 

GOSUB 1070 




2 1 00 

GOTO 2120 




2110 

END 




21 20 

REM 





21 30 

REM **«*»*«**»****»*.».****» 


21 40 

REM * 

* 


2150 

REM * SCELTA INIZIALE 

* 


21 60 

REM * 

* 


21 70 

REM «*»»**»«*«««*«*»»•***»«* 


2180 

REM 



2190 

CLS 



2200 

LOCATE 11,3 



2210 

PRINT "DISASSEMBLER Z80" 



2220 

LOCATE 8,8 



2230 

PRINT "1. Lettura memoria" 



2240 

LOCATE 8,10 



2250 

PRINT "2. Memorizzazione dati" 


2260 

LOCATE 8,12 



2270 

PRINT "3. Fine programma" 



2280 

LOCATE 12,15 



2290 

PRINT "Premi un tasto" 



2300 

KK$«INKEY$ 



2310 

IF K K $ <"1" OR KK $>"3" THEN 

2300 


2320 

ON VAL(KK$ ) GOTO 370,1 800, 

2670 


2330 

END 



2340 

REM 



2350 

REM ************************ 


2360 

REM * 

* 


2370 

REM * PRESENTAZIONE 

* 


2380 

REM * 

* 


2390 

REM ************************ 


2400 

REM 



24 10 

LOCATE 11,10 



2420 

PRINT "{5C219 } { 3C219} 

(3C219) 

» 

2430 

LOCATE 15,11 



2440 

PRINT "iC219 ) {C219 } (C219} {C219 ) 

{ C 2 1 9 ) " 



2450 

LOCATE 14,12 



2460 

PRINT "(C219 ) (C219 } {C219 > {C219 } 

t C 2 1 9 } " 



2470 

LOCATE 13,13 



2480 

2191' 

PRINT " { C219 ) {3C219 } 

(C219) 

(C 

2490 

LOCATE 12,14 



2500 

PRINT " { C 219 ) (C219 } 

{ C 21 9 } 

{C 21 

9} 

{ C 21 9 ) " 



2510 

LOCATE 11,15 



2520 

PRINT " {C219 } ( C21 9 } 

(C219) 

{C2 

19) 

{ C 21 9 ) " 



2530 

LOCATE 11,16 



2540 

PRINT "(5C219) { 3 C 219 } 

{ 3 C 21 9 } 

II 

2550 

RETURN 



2560 

END 



2570 

REM 



2580 

REM a*********************** 


2590 

REM « 

* 


2600 

REM * ERRORE 

* 


2610 

REM * 

* 


2620 

REM ************************ 


2630 

REM 



2640 

IF ERL-2000 THEN PRINT " 



ERRORE" : PRINT : BEEP : BEEP : RÉSUMÉ 1980 

: GOT 

0 1 980 



2650 

IF ERL-1930 THEN PRINT " 



ERRORE":PRINT:BEEP:BEEP: RÉSUMÉ 1920 

: GOT 

0 1 920 



2660 

END 



2670 

REM 



2680 

REM a#*#*#**#*»**###*»**##** 


2690 

REM * 

« 


2700 

REM * FINE PROGRAMMA 

* 


27 1 0 

REM * 

* 


2720 

REM *»***•»»••*•»•*•*****••* 


2730 

REM 



2740 

CLS 



2750 

LOCATE 2,10 



2760 

BEEP : BEEP 



2770 

PRINT "SEI PROPRIO SICURO 

DI FINIRE < 

S / N > 

u 



2780 

KK$-INKEY$ 



2790 

IF K K $ »"" THEN 2780 



2800 

IF K K $ «" S " THEN CLS : KEY ON 

: END 


2810 

GOTO 2120 
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CORSO PRATICO 
DI LINGUAGGIO 
MACCHINA 


di Piero Todorovich 

D opo aver illustrato il set di 
istruzioni della CPU Z80 ed 
effettuato i primi passi, proseguia¬ 
mo il nostro discorso approfon¬ 
dendo la conoscenza dei registri 
del processore e della struttura di 
dati denominata stock. 

I registri del processore sono le 
"variabili" disponibili nei pro¬ 
grammi in LM. 

Mentre in Basic possiamo utilizza¬ 
re un numero molto elevato di va¬ 
riabili stringa/testo definendone 
nome, contenuto, e modo di utiliz¬ 
zo a nostro piacimento, in lin¬ 
guaggio macchina dobbiamo 
adattarci ad un numero di registri 
predeterminato, ciascuno capace 
di contenere solo numeri interi e 
per di più limitato nel campo di 
utilizzo. 

I registri disponibili sono: 

A, B, C, D, E, H, L, I, R registri sem¬ 
plici (possono contenere un byte 
cioè numeri interi compresi tra 0 e 
255) 

AF, BC, DE, HL, SP, IX, IY registri 
doppi (possono contenere due 
bytes cioè numeri interi compresi 
tra 0 e 65535) 

I registri doppi (AF, BC, HL, DE) 
sono semplicemente l'associazio¬ 
ne di due registri semplici pertan¬ 
to non possono essere utilizzati in 
modo indipendente: 
se assegnamo al registro doppio 
HL il valore 0, anche i registri sem¬ 
plici H e L saranno ovviamente 
azzerati. 

Ad ogni registro corrisponde un 
certo numero di istruzioni che ne 
permette l'uso, da questo set di¬ 
pende il campo di utilizzo del regi¬ 
stro stesso. 

Il registro semplice "A" detto "ac¬ 
cumulatore" è quello più usato 
per ciò che riguarda le operazioni 
logiche e matematiche poiché ha 
il set più completo: nelle tunzioni 
OR, AND e talvolta in altre, l'uso 



di A è addirittura sottinteso: tro¬ 
viamo "OR B" in luogo di un "OR 
A, B" ecc. 

I registri semplici B, C, D, E, H, L 
sono utilizzabili in pari misura per 
caricare dati da utilizzare in fun¬ 
zioni logiche e matematiche con il 
registro A oppure per la maggio¬ 
ranza delle operazioni sui singoli 
bit (rotazioni, test, set, reset) e al¬ 
tre. 

I registri "\" ed "R" hanno un uso 
riservato, rispettivamente: come 
vettore per routines interrupt e per 
il rinfresco (rigenerazione) della 
memoria, cose che per il momen¬ 
to non ci interessano. 

I registri doppi hanno anch'essi 
un uso preferenziale: useremo HL 
per puntare locazioni di memoria 
(cioè come contenitore per la lo¬ 
cazione), BC come contatore, DE 
per gli altri usi. 

II registro AF è utilizzato unica¬ 
mente per memorizzare e richia¬ 
mare all'occorrenza l'accumula¬ 
tore (A) e il registro di flag (F) in 
una struttura di dati chiamata 
stock. 

SP, (Stock pointer) punta alla lo¬ 
cazione di memoria dove è sito lo 
stock. 

I registri IX e IY hanno un uso spe¬ 
cializzato, sono utilizzati normal¬ 
mente come puntatori per buffer 
di'dati di 256 bytes, grazie ad un 
set particolare di istruzioni che 
ermette una facile gestione, 
er chi, arrivato a questo punto, 
ha già le idee confuse, chiariamo 
che, per un primo approccio con 
la programmazione, è sufficiente 
la conoscenza del sottoinsieme di 
istruzioni che riguarda i registri 


principali A, D, E, B, C, HL, BC, 
DE) e del 'unica struttura di dati 
che utilizzeremo: lo Stock. 

Lo stock è un'area della memoria 
che possiamo utilizzare per me¬ 
morizzare temporaneamente il 
valore contenuto nei registri, per 
poi riutilizzarlo in altro momento. 
Nella programmazione in lin¬ 
guaggio macchina, infatti, non 
possiamo permetterci il lusso di 
impegnare registri con dati non di 
immediato utilizzo; i comandi 
PUSH e POP seguiti dal nome di 
un registro doppio servono rispet¬ 
tivamente per memorizzare o ri¬ 
chiamare un dato nello stock. 

Lo stock ha una struttura a pila, 
tale che l'ultimo dato memorizza¬ 
to è anche il primo ad essere ri¬ 
chiamato, questa struttura è nota 
sotto il nome di LIFO (last input- 
first output). Lo stock è utilizzato 
oltre che dal programmatore, an¬ 
che dalla CPU quando esegue 
chiamate a subroutine con il co¬ 
mando CALL (simile al GOSUB 
del Basic), per memorizzare la lo¬ 
cazione a cui ritornare. Fate molta 
attenzione quindi che i vostri pro¬ 
grammi LM non lascino dati nello 
stock all'esecuzione del comando 
RET (ritorno) altrimenti il dato letto 
dalla CPU come locazione di ri¬ 
torno non sarà corretto e il risulta¬ 
to sarà un CRASH. 

Il Crash è la perdita del controllo 
su ciò che la CPU sta facendo e 
capita frequentemente durante il 
collaudo di programmi contenenti 
errori. Infatti, mentre un program¬ 
ma Basic errato si blocca presen¬ 
tando un messaggio di errore, un 
programma LM con errori nell'uso 
dello stock o nelle istruzioni di 
"salto" prosegue spesso nella 
propria pazza corsa. 

In tal caso la CPU interpreterà 
aree di dati, o valori casuali pre¬ 
senti in memoria come se si trat¬ 
tasse di istruzioni con risultati im¬ 
prevedibili. Il più delle volte, per 
riprendere il controllo del proprio 
computer occorrerà resettare o 
spegnere e riaccendere la mac- 
cnina. 

Un registro particolare e di gran¬ 
de importanza nella programma¬ 
zione è il registro ai stato "F" 
(flag) che abbiamo volutamente 
lasciato per ultimo proprio per 
parlarne in modo approfondito. 
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A differenza degli altri registri 
semplici, F non dispone di nessu¬ 
na istruzione che permetta di cari¬ 
care un qualsiasi dato o eseguire 
operazioni, il suo uso è riservato 
all'indicazione di situazioni verifi¬ 
catesi in operazioni eseguite con 
ali altri registri. 

il confronto tra due numeri: CP n, 
tra il contenuto dell'accumulatore 
e il numero "n", non provoca al¬ 
tro che la modifica dello stato 1/0 
di alcuni bit del registro di flag in 
dipendenza del risultato del con¬ 
fronto stesso. 

Se l'accumulatore è minore del 
numero, il bit denominato Carry è 
posto a 1 altrimenti, nella condi¬ 
zione opposta (A>=n) il Carry 
vale 0. 

Il bit Z del registro di Flag indica 
invece l'uguaglianza tra i due 
operandi se è settato a 1, altri¬ 
menti Aon. 

Per eseguire "decisioni" in un 
programma in linguaggio mac¬ 
china occorre controllare i bit di 
flag con le istruzioni di salto o 
chiamata condizionata: 

JP z,nnnn: salta alla locazione 
nnnn se z= 1 

Cali nz,nnnn: salta alla subroutine 
della locazione nnnn se z=0 (in¬ 
fatti "nz" sta per NOT(z)) 

Si intuisce chiaramente come sia 
simile l'uso delle decisioni in Basic 
a quelle effettuate con il LM. 

*) IF a<b THEN GOTOIOOO (sal¬ 
ta alla linea 1000 se la variabile 
a<b) 

*) CP B 

JP c,55000 (salta alla locazione 
55000 se il registro A<B) 



Un po' meno semplice cercare 
l'equivalenza di "a>b" o 
"a< = h" che vi lasciamo per 
esercizio. 

Per dovere di cronaca, molte altre 
istruzioni oltre a "CP", mutano i 
bit di flag col verificarsi di partico¬ 
lari condizioni, inoltre esistono al¬ 
tri bit (oltre a "Z" e Carry), il cui 
valore si presta ad interessanti 
applicazioni. 

Rimandiamo l'approfondimento 
prossimamente o per i più esigen¬ 
ti, su testi specifici. 


PICCOLI TRUCCHI 


ROUTINESINTERRUPT 

Utilizzando il potente MSX BASIC 
vi sarete resi conto di come sia 
possibile utilizzare i comandi ba¬ 
sic ON INTERVAL GOSUB, IN- 
TERVAL ON per la gestione di 
controlli o funzioni di sincronizza¬ 
zione temporale di sprite in movi¬ 
mento ecc. 

Programmando in linguaggio 
macchina è ugualmente possibile 
utilizzare l'interrupt, intercettando 
la chiamata effettuata dalla routi¬ 
ne di ROM ogni 50' di secondo 
alla locazione FD9FH. 


Sostituendo a tale locazione il co¬ 
dice 201 (RET) presente, con 205 
(Cali) e relativa locazione nei due 
bytes successivi, siamo in grado 
di inserire qualsiasi sottopro¬ 
gramma LM self-made al normale 
interrupt. 

LO SAPEVATE CHE... 

L'evoluzione delle routine di lettu¬ 
ra-scrittura da registratore con¬ 
trollate via software, ha raggiunto 
negli MSX un notevole livello di 
evoluzione. In particolare, la rou¬ 
tine di Load si auto-sincronizza sul 
segnale da caricare anche se 
questo è accidentalmente o volu¬ 
tamente registrato a velocità dif¬ 
ferenti. Se il vostro registratore è 
di buona qualità, e consente la 
regolazione della velocità di scor¬ 
rimento del nastro, potete carica¬ 
re più speditamente qualsiasi pro¬ 
gramma già registrato semplice- 
mente aumentando la velocità di 
scorrimento. 


KEY PROGRAMMER 

I tasti funzione MSX si prestano a 
tantissime applicazioni interes¬ 
santi, in particolare oltre ai co¬ 
mandi Basic più usati è possibile 
inserire i caratteri di controllo più 
utili o associazioni tra questi: 
Keyx, chr$(18)+chr$(32) per inse¬ 
rire spazi nei programmi 
Keyx, chr$(18 +cnr$(58) per inse¬ 
rire istruzioni basic 
Keyx, chr$(21) cancella una linea 
su schermo 

Keyx, chr$(14) + ":rem" per ag¬ 
giungere REMarks a fine linea 
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